home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / libguide / checkavolume < prev    next >
Text File  |  1999-01-01  |  2KB  |  60 lines
  1. ; CheckYourLibsAtAnyVolume V3.0
  2. ; © 02/1999 by Heiko Schröder
  3. ; 3.0  Suche nun mit VersionWB
  4. ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
  5.  
  6. Echo "Library-Check at any Volume*NV3.0 © Heiko Schröder 02/99"
  7. Echo "The report will be written in RAM: and you can't stop the version scan!"
  8. Ask "Do you want to check your system for libraries? (Y/N)"
  9. If NOT WARN=5
  10.    C:Quit
  11. EndIf 
  12.  
  13. C:FailAt 100
  14. C:Copy VersionWB RAM:
  15. C:Copy C:Search RAM:
  16. C:Copy Scripts/LibList RAM:
  17. C:Copy MyCheck RAM:
  18. C:Copy MyCheck.rexx RAM:
  19. C:Copy MyConvert.rexx RAM:
  20.  
  21. Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
  22. Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
  23. Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
  24. Echo "For LibGuide (02/99) I scan infos about your system:" >>Ram:Lib-NewList
  25. VersionWB >>Ram:Lib-NewList
  26. CPU >>Ram:Lib-NewList
  27.  
  28. Echo "Starting Rexx"
  29. Sys:System/RexxMast
  30. rx MyDevice.rexx
  31.  
  32. If "$dev" EQ 0
  33.    Echo "Cancel"
  34.    Wait 2 secs
  35. else
  36.    Echo "Looking for Libraries..."
  37.    C:List $dev PAT=#?.library~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
  38.  
  39.    Sort Ram:List1 Ram:List1
  40.  
  41.    Echo "Starting Check..."
  42.    SetEnv VERSIONWB_MAX 255
  43.    Protect MyCheck +s
  44.    Execute Ram:List1
  45.    Echo "*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
  46.    Echo "Please send me the RAM:Lib-NewList for updating the Libraries.guide."
  47.    Echo "*NThis script used the program VersionWB from Håkan Parting...*N--- END---"
  48. Endif
  49. SetEnv VERSIONWB_MAX 50
  50.  
  51. Delete Ram:List1 QUIET
  52. Delete Ram:VersionWB QUIET
  53. Delete Ram:vwb_check QUIET
  54. Delete Ram:Search QUIET
  55. Delete Ram:LibList QUIET
  56. Delete Ram:MyCheck QUIET
  57. Delete Ram:MyCheck.rexx QUIET
  58. Delete Ram:MyConvert.rexx QUIET
  59. Wait 10 secs
  60.